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ABSTRACT 


The  "RING"  computer  program  was  developed  to  calculate  the  aging. rate  of 
piezoelectric  ceramic  materials.  The  program  computes  the  percent  aging  rate 
for  ceramic  capacitance,  resonant  frequency,  and  coupling  coefficient  as  a 
function  of  logarithmic  time  decades.  Program  options  enable  the  user  to 
store  and  edit  data,  perform  statistical  analyses,  and  display  printed  or 
plotted  ceramic  properties. 
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INTRODUCTION 


A  computer  program  was  developed  to  calculate  the  aging  rate  of 
piezoelectric  ceramic  materials.  The  program,  called  "RING",  computes  the 
percent  aging  rate  for  ceramic  capacitance,  resonant  frequency,  and  coupling 
coefficient  as  a  function  of  logarithmic  time  decades.  The  program  is  useful 
for  predicting  ceramic  behavior  over  time. 

Program  applications  include  both  circular  ring  and  cylindrical  tube 
ceramic  shapes.  The  data  to  be  entered  includes  the  ceramic  serial  number, 
capacitance,  dissipation  factor,  frequency  data,  and  temperature  for  two 
different  days  since  poling.  Program  options  enable  the  user  to  store  and 
edit  data,  perform  statistical  analyses,  and  display  printed  or  plotted 
ceramic  properties.  A  computer  listing  of  the  program  is  presented  in  the 
appendix  of  this  technical  memorandum. 


PROGRAM  INSTALLATION 


The  "RING"  program  operates  on  the  Hewlett-Packard  HP  9845  desktop 
computer.  The  tape  cassette  should  be  inserted  into  the  right  hand  tape  drive 
unit  (from  user  perspective).  The  following  executive  commands  are  used  to 
initialize,  run,  and  terminate  the  program.  Each  example  is  divided  into 
three  parts.  The  first  column  lists  the  typed  command.  The  second  column 
shows  the  console  key(s)  to  be  pressed.  The  third  column  describes  the  action 
taken  by  the  program. 
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CONSOLE 


COMMAND 

KEY 

COMMENT 

GET  "RING" 

EXEC 

Executes  the  "RING"  program 

RUN 

CAT 

EXEC 

Lists  all  data  files 

DUMP  GRAPHICS 

EXEC 

Hard  copy  print  of  a  plot 

STOP 

Terminates  the  "RING"  program 

STOP 

Terminates  a  session  and 

RUN 

restarts  the  program 

PROGRAM  OPTIONS 


The  program  operates  from  a  main  options  list.  Each  time  the  user 
selects  an  option,  the  program  performs  the  requested  function  and  returns  to 
the  main  options  list.  The  following  paragraphs  discuss  the  usage  of  each  of 
the  main  options. 


1 .  CREATE  DATA  FILE  FOR  RING  STORAGE 


This  option  creates  a  data  file  on  tape  on  which  ceramic  ring  data  may  be 
stored  using  Option  2.  The  user  enters  the  file  title  (up  to  6  characters  in 

length)  and  the  maximum  number  of  rings  for  which  storage  is  to  be  allocated. 

Up  to  500  rings  may  be  stored  on  a  single  file.  The  size  of  a  data  file 
should  be  specified  greater  than  that  used  initially  if  subsequent  ring  data 
are  added  to  the  file. 

The  program  then  attempts  to  create  the  file  on  the  tape  or  disk.  If  no 
tape  or  disk  error  occurs,  the  user  enters  an  up  to  80  character  file 
title/information  string  indicating  the  contents  of  the  file.  The  ring 
original  poling  data  is  then  entered  (up  to  32  characters  in  length).  This 
data  is  stored  in  the  file,  and  the  program  returns  to  the  main  options  list. 

See  the  Option  1  example  in  the  Appendix  of  this  report  for  creating  a  data 

file. 


2.  STORE  RING  DATA  IN  DATA  FILE 


Once  a  file  has  been  created  using  Option  1,  the  user  may  store 
individual  ring  data  in  the  file.  First,  the  user  selects  the  data  file  in 
which  the  ring  data  is  to  be  stored.  Then,  provided  that  the  file  is  not 
already  filled,  the  user  enters  the  ring  serial  number.  The  input  data 
depends  upon  the  types  of  measurements  taken  on  the  ceramic  rings,  which  vary 
with  transducer  model.  Currently  the  program  is  set  up  to  accept  data  for  the 
TR-317  or  TR-155  transducers  (ceramic  ring  or  tube  data).  For  the  TR-317 
transducer  two  sets  of  the  following  data  are  entered: 
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Days  since  poling 

CAP  -  Capacitance  in  picofarads  at  1  KHz 
K  -  Coupling  Coefficient  (K3],  "Hoop  Mode") 

DF  -  Dissipation  Factor  at  1  KHz 

FR  -  Ring  Resonant  Frequency,  "Hoop  Mode",  KHz 

TEMP  -  Air  Temperature  in  degrees  Fahrenheit 

For  the  TR-155  transducer  two  sets  of  the  following  data  are  entered: 

Days  since  poling 

CAP  -  Capacitance  in  picofarads  at  1  KHz 
DF  -  Dissipation  Factor  at  1  KHz 
FM  -  Frequency  of  Maximum  Admittance  KHz 

FN  -  Frequency  of  Minimum  Admittance  KHz 

TEMP  -  Air  Temperature  in  degrees  Celsius 

The  data  is  stored  in  the  data  file,  and  the  program  returns  to  the  main 
options  list.  The  Option  2  examples  in  the  Appendix  show  data  storage  formats 
for  both  the  TR-317  and  TR-155  model  transducers. 


3.  PRINT  RING  CATALOG  FOR  THE  CURRENT  DATA  FILE 


If  the  user  wishes  to  print  a  catalog  of  the  serial  numbers  of  rings 
stored  on  the  current  data  file,  he  selects  Option  3.  The  catalog  may  be 
printed  on  the  CRT  or  the  printer.  The  file  name,  the  title  string,  and  the 
poling  date  string  are  printed,  followed  by  a  list  of  the  ring  serial  numbers 
stored  in  the  file  (See  the  Appendix  under  the  Option  3  example  for  displaying 
a  ring  catalog).  The  program  then  returns  to  the  main  options  list. 


4.  EDIT  DATA  STORED  IN  DATA  FILE 


Data  that  has  been  previously  stored  in  a  data  file  may  be  changed  using 
Option  4.  A  list  of  data  edit  options  is  printed  as  follows: 

EDIT  OPTIONS: 

1.  Print  serial  number  catalog  for  file 

2.  Edit  ring 

3.  Purge  ring 

4.  Enter  new  title  string 

5.  Enter  new  poling  date 

6.  Return  to  main  options 

Any  changes  made  are  stored  in  the  data  file.  Thus,  if  a  ring  is  purged 
using  edit  Option  3,  that  data  is  no  longer  accessible  for  any  purpose, 
because  it  is  deleted  from  the  data  file,  not  just  from  the  statistical 
calculation  (see  main  Option  6).  When  edit  Option  6  is  selected,  data  editing 
is  completed,  and  the  program  returns  to  the  main  options  list.  The  Option  4 
example  located  in  the  Appendix  gives  a  few  examples  of  this  option. 
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5.  CALCULATE  STATISTICS  AND  PRINT  RING  DATA  TABLE 


This  option  calculates  statistics  and  prints  the  file  data  on  the  CRT  or 
the  printer.  The  user  selects  the  file,  and  where  the  table  is  to  be 
printed.  The  mean,  standard  deviation,  and  minimum  and  maximum  of  CAP,  K,  and 
FM  are  printed  for  both  days  since  poling.  If  Option  6  has  been  exercised  to 
delete  a  ring  from  the  statistical  calculations,  an  asterisk  is  placed  next  to 
the  ring  serial  number.  After  the  table  has  been  printed,  the  program  returns 
to  the  main  options  list  (See  Option  5  example  in  the  Appendix). 


6.  DELETE  A  RING  FROM  THE  STATISTICAL  CALCULATIONS 


Once  a  table  has  been  printed  using  Option  5,  the  user  may  delete  a  ring 
from  the  statistical  calculations.  The  user  enters  the  ring  serial  number, 
and  the  program  returns  to  the  main  options  list  (See  Option  6  example  in  the 
Appendix) . 


7.  RESTORE  A  RING  TO  THE  STATISTICAL  CALCULATIONS 


A  ring  that  has  been  deleted  from  the  statistical  calculations  using 
Option  6  may  be  restored  to  the  calculations  using  Option  7.  The  ring  serial 
number  is  entered,  and  the  program  returns  to  the  main  options  list.  See  the 
Option  7  example  in  the  Appendix  of  this  report. 


8.  PLOT  INDIVIDUAL  RING  DATA 


This  option  plots  on  the  CRT,  the  CAP,  FR,  and  K  data  for  an  individual 
ring  on  a  logarithmic  time  scale.  The  user  selects  the  file  and  ring  serial 
number,  and  the  plot  is  automatically  scaled  and  drawn  on  the  CRT.  The  actual 
CAP,  FR,  and  K  data  points  are  denoted  by  an  X.  A  line  is  drawn  through  the 
data  points,  and  the  slope  of  the  line  is  printed,  indicating  the  percent 
change  per  logarithmic  decade  for  each  data  type  (See  Option  8  example  in  the 
Appendix).  After  the  plot  is  drawn,  the  program  pauses.  The  user  presses 
CONT  when  he  wishes  to  return  to  the  main  options  list.  A  ring  which  was 
deleted  from  statistical  calculations  using  Option  6  may  be  plotted  under  this 
option . 


9.  MAKE  BAR  PLOT  OF  COMPOSITE  CAP.  K.  OR  FR  DATA 

A  bar  graph  of  the  CAP,  K,  or  FR  data  for  each  data  set  is  plotted  on  the 
CRT.  Rings  which  have  been  deleted  from  the  statistical  calculations  do  not 
appear  on  the  bar  chart.  When  the  plot  for  the  first  data  set  has  been  made, 
the  program  pauses.  When  CONT  is  pressed,  the  plot  for  the  second  data  set  is 
made,  and  the  program  pauses  again.  The  user  then  presses  CONT  to  return  to 
the  main  options  list.  See  the  Appendix  under  the  Option  9  example  for  a 
sample  bar  plot. 
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APPENDIX 
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"RING"  PROGRAM  OPTION  EXAMPLES 


The  following  computer  listing  is  a  sample  session  illustrating  the  use 
of  options  with  the  "RING"  program.  Each  program  option  is  demonstrated. 
User  responses  are  denoted  with  a  caret  (>)  preceding  the  response. 
Additional  comments  are  inserted  to  clarify  the  input  data. 


OPTION  1  EXAMPLE: 


E  N  T  E  R  0  P  T  I  0  H  H  U  M  E  E  R  <  1  -  9  > 

>  1 

ENTER  FILE  TITLE  AND  MASS  STORAGE  DEVICE 

>  RING1 

ENTER  NUMBER  OF  RINGS  TO  ALLOCATE  STORAGE  FOR  <1-500) 

>  6 

ATTEMPTING  TO  CREATE  FILE  RING1,3,128 

ENTER  FILE  TITLE  STRING  <UP  TO  80  CHARACTERS) 

>  TR155G-BQ  SAMPLE  DATA 

ENTER  POLING  DATE  (UP  TO  32  CHARACTERS) 

>  1-15-85 
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OPTION  2  EXAMPLE:  TR-155 


E  N  T  E  R  0  P  T  I  0  H  N  U  M  E  E  R  <  1  -  9  > 
>  2 


PRESS 

> 

ENTER 

>  50830 
ENTER 

>  2 

Z' 

>  8 

>  30549 

>  .00  2 

>  16901 

>  18822 

>  22 

>  22 

>  29961 

>  .  0  0  2 

>  169  6  8 

>  18847 

>  22 


CO NT,  OR  ENTER  HEN  FILE  NAME  AND  MASS  STORAGE  DEVICE 

SERIAL  NUMBER  C NUMERIC  ONLY,  >0) 

24 

1  FOR  TR-317  DATA,  2  FOR  TR-155  DATA 


Days  since  poling 

CAP 

DF 

FM 

FN 

TEMP 

DAYS  SINCE  POLING 

CAP 

DF 

FM 

FN 

TEMP 


DATA  SET  1 


DATA  SET  2 


PRESS  COHT  TO  ENTER  DATA  FOR  ANOTHER:  RING;  ENTER  Q  TO  RETURN  TO  OPTIONS 


( 


LI 
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OPTION  2  EXAMPLE:  TR-317 


E  H  T  E R  0  P T I  0  H  N  U  M E  E  R  1-9  ' 

>  1 

ENTER  FILE  TITLE  AND  M A S 5  STORAGE  DEVICE 

>  RINGS 

ENTE R  N U M E E R  0 F  R I N G S  TO  ALL 0 CATE  S T 0 R  AGE  F 0 R  C 1-50 O  > 

>  50 

ATTEMPTING  TO  CREATE  FILE  RING2,55,128 
ENTER  FILE  TITLE  STRING  CUP  TO  80  CHARACTERS:) 

>  TR-317  SAMPLE  DATA 

ENTER  POLING  DATE  (.UP  TO  32  CHARACTERS:' 

>  4-12-85 

ENTER  0  P T I  0  N  N  U  M  B E  R  C 1  - 9  > 

>  2 

PRESS  CONT,  OR  ENTER  NEW  FILE  NAME  AND  MASS  STORAGE  DEVICE 

> 

ENTER  SERIAL  NUMBER  < NUMERIC  ONLY,  >0) 

>  632 14S 

ENTER  1  FOR  TR-317  DATA,  2  FOR  TR-155  DATA 

>  1 


>  129  Days  since  poling 

7 

>  1516  CAP 

>  .3291  K 

9 

>  .0013  DF 

>  14729  FR 

>  r5  temp 


DATA  SET  1 


>  49 

>  1536 
7 

>  .3340 

>  .  0013 

7 

>  14695 

>  75 
PRESS 


Days  since  poling 

CAP 

K 

DF 


DATA  SET  2 


FR 

TEMP 

CONT  TO  ENTER  DATA  FOR  ANOTHER  RING; 


ENTER  0  TO  RETURN  TO  OPTIONS 


LI 


OPTION  3  EXAMPLE: 

ENTER  0  P  T  I  0  N  N IJ  M  E  E  R  c  1  -  9  ) 

>  3 

HARDCOPY  PRINTOUT  <  Y  r  N  V"' 

>  Y 

FILE:  RING  1 
TR155G-EQ  SAMPLE  DATA 
POLING  DATE:  1-15-S5 

FILE  RING1  CONTAINS  DATA  FOR  THE  FOLLOWING  RING  SERIAL  NUMBERS: 

5  O  8  36224  5  @ 8  3  0  321  5  @  S  S  0 1 0  3  5  0  8  S  0115 

5  0  S  8  0  413  5  0  9  0  0  2  0  2 
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OPTION  4  EXAMPLE: 

a.  Print  ring  serial  number  from  RING  1  data  file. 


ENTER  OPTION  HUMBER  1-9) 

>  4 

ENTER  FILE  N  fl  M E  WITH  M fi  S  S  S  T  0  R  fl  G  E  D  E  V  I  0 E 

>  RING1 

ENTER  EBIT  0  P  T  I  0 N  N  U  M  E  E  R  <  1-6  j 

>  1 

HARDCOPY  PRINTOUT  <Y  or  N>? 

>  Y 

FILE:  RING1 
TR155G-EQ  SAMPLE  DATA 
POLING  BATE:  1-15-85 

FILE  RING1  CONTAINS  DATA  FOR  THE  FOLLOWING  RING  SERIAL  NUMBERS: 

5  U  a 3  a £  £  4  5 0  S  3  O  321  5  0  3  8  0  1  0  3  5  q  g  g  0  1  i  s 

5  8  S  8  O  4  1  3  5  0  9  0  O  2  0  2 

b.  Create  a  new  title  string. 

E  N  T  E  R  EBIT  0  P  T  I  0  N  N IJ  M  B  E  R  <  1-6  > 

>  4 

ENTE R  HEW  TITLE  S TR I H G  U P  T 0  S 0  C HAPACTEP S ) 

>  T R -  1 5 5 G 0 B Q  EBIT 


c.  Make  the  following  changes  to  the  first  data  set  of  ring  #50830224: 

CAP  =  30500 
K  =  .20 
FM  =  17000 
FN  =  19000 

ENTER  EBIT  OP T  I  0 N  H U M  B  E  R  <  1  - 6  > 

>  2 

ENTER  RING  SERIAL  NUMBER  (ENTER  0  FOR  RING  CATALOG) 


>  5083 0224 
ENTER  Y  or  H 

>  V 


PRESS 

COHT , 

OR 

ENTER 

fl 

NEW 

VALUE 

> 

> 

PRESS 

3  0  5  0  0 

CO  NT  , 

OR 

ENTER 

A 

N  E  W 

VALUE 

> 

PRESS 

CONT, 

OR 

E  N  T  L  R 

A 

N  E  W 

V  A  L  U  E 

PRESS 

CONT, 

OR 

ENTER 

fl 

NEW 

VALUE 

> 

> 

PRESS 
1700  0 

CONT, 

OR 

ENTER 

A 

NEW 

VALUE 

> 

PRESS 

1  9000 

C  0  N  T  , 

OR 

ENTER 

A 

NEW 

VALUE 

PRESS 

CONT  , 

OR 

ENTER 

A 

NEW 

VALUE 

> 

ENTER  Y  or  N 

>  N 

ARE  VALUES  UORREuT  v  or  ■  H  o  r 

>  Y 


Change  values  for  time  1? 

Days  since  poling 
CAP 

K 

DF 

FM 

FN 

TEMP 

Change  values  for  time  2? 

Updated  values  are  listed  on  monitor. 
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OPTION  5  EXAMPLE: 

ENTER  0  P  T  I  0  H  N IJ  M  E  E  R  <  1  -  9  ) 

>  5 

PRESS  CONT,  OR  ENTER  NEN  FILE  NAME  AND  MASS  STORAGE  DEVICE 

> 

PRINT  HARD  COPY  C Y  or  N > ? 

>  Y 


FILE:  RING1 
TR- 1 55G/BQ  EDIT 
POLING  DATE:  1-15-85 


R  I  NG 

DAY 

CAP 

K 

DF 

FM 

FN 

T 

HRftftR224 

008 

3  0  5  O  O 

.  2000 

.  0020 

1  7000 

1  9  0  0  0 

1'  C. 

022 

2996  1 

.  1895 

.  0020 

1696s 

1884  7 

7 

5O830321 

0  0  8 

3  1259 

.  1  920 

.  0020 

16861 

18758 

72 

0  2  2 

3  0  5  4  6 

.  1877 

.  0020 

1  69  58 

18816 

7  2 

50880 1 03 

0  0  8 

‘  *i  n  "•!  7  7 

.  1850 

.  002  0 

17011 

1  8843 

7  2 

0  2  2 

29819 

.181 5 

.  0  0  1  0 

1  7088 

1888  8 

7  2 

HR ft SR  115 

0  0  8 

ft  0  5  0  ft 

.  1902 

.  0  0201 

16  9  71 

18859 

72 

0i22 

29919 

.  1851 

.  001  0 

17058 

l  a  a  9  8 

72 

5  R  ft  ft  R  4  1 : -i 

01  0  8 

3  06  1  3 

.  1919 

.  01  01  2  0 

18971 

18879 

72 

0  2  2 

3  0  0i  4  6 

.  186  8 

.  0  0  1  0 

1  7  0  5  8 

18916 

72 

5  0  9  0  0  2  0  2 

0i  0  8 

3  0i  8  l  2 

.  1910 

.  001201 

16981 

1  8  8  8  0 

72 

0i  2  2 

3  0  0  2  2 

.  1867 

.  0  0  1  0 

1706  8 

1  8926 

7  2 

CAP 

M  I  N 

MAY, 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

3  0  3^7 

31259 

30644 

313.72472 

SECOND  DATA 

SET 

2  9  8  1  9 

30  546 

30052. 167 

255.0415 

K 

M  I  N 

MAX 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

.  1  S  4  9  9  b  ft  S 

,  2 

.191 6989 

.  0  0  4  8  3  0  3  3  1 

SECOND  DATA 

SET 

.  18  151538 

.  18945552 

. 18621573 

.00271 2  6  6  2 

FM 

M  I  N 

MAX 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

1686  1 

17011 

16965.833 

53. 816039 

SECOND  DATA 

SET 

1  69  58 

1  7088 

1  7033 

55. 407581 
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OPTION  6  EXAMPLE 


TM  No.  851094 


ENTE R  0 P T  I  0 H  H U M £ E R  <•.  1  - 9  ) 

>  6 

ENTER  RING  SERIAL  CR  ENTER  0  FOR  RING  CATALOG) 

>  50S30224 

Verify  ring  #  50830224  deleted  from  ring  statistical  calculations 

ENTER  OPTION  NUMBER  1-9) 

>  5 

PRESS  CONT,  OR  ENTER  NEW  FILE  NAME  AND  MASS  STORAGE  DEVICE 

> 

P R  I  N T  HA R D  U U P Y  £.  Y  o r  N  )  Y 
>  Y 


file:  RINGl 
T R -  1  5 5 G E Q  EDIT 
POLING  DATE:  1-15-85 


RING 

D  H  Y 

C  f~i  P 

K 

DF 

FM 

FN 

T 

5  0  S  3  0  2  2  4  * 

0  0  S 

3  0589 

.  2000 

,  0020 

1  7000 

19000 

7  o 

0  2  2 

299  61 

.  1895 

.  0  02  0 

1  6  9  6  8 

1884  7 

7  2 

50830321 

0  0  8 

3  12  59 

.  1920 

.  0020 

16861 

18758 

72 

0  2  2 

3  0  54  6 

.  1877 

.  0  0  2  0 

16958 

1  88  1  6 

72 

5  O  8  8  0  1  O  3 

0  0  8 

-.037  7 

.  1850 

.  0  020 

17011 

1884  3 

72 

0  2  2 

2  9  3  1  9 

.  1315 

.  00  1  0 

17088 

1888  8 

72 

508301  15 

0  0  8: 

8  S  8  3 

.  1902 

,  0020 

16971 

18859 

72 

O  2  2 

2  9  1  A 

.  1851- 

.  0  0  1  0 

17058 

1  8896 

72 

50880413 

0  0  8 

306  1  3 

.  1919 

.  0020 

16971 

1  8  8  7  9 

72 

0  2  2 

3  0  0  4  6 

.  18  68 

.001  0 

17058 

1  8  916 

72 

5  0  9  O  0  202 

0  0  8 

30612 

.  191  0 

.  0020 

16981 

18880 

72 

0  2  2 

3  8  0  2  2 

.  1867 

.001  0 

1  7068 

1  8  9  2  6 

i’1  2 

CAP 

M  I  N 

MAX 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

3  0  3  7  7 

31259 

3  0  67  2. 8 

341 . 77215 

S  E  C  O  N  D  DATA 

SET 

2  A  8  1  9 

3  0  5  4  6 

3  007O.4 

280. 73885 

K 

M  I  M 

MAX 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

.  1  y  4  9  9  6  cl  8 

.192  O  3  3  0  5 

.  l  9  0  0 : ft  6  ft 

. 0029142182 

SECOND  DATA 

SET 

.  18151538 

■  1  8  t-'  i‘-  4  0  r'  7 

. 18556777 

. 002459531 3 

FM 

M  I  N 

MAX 

MEAN 

STD  DEV 

FIRST  DATA 

SET 

168  61 

17011 

16959 

57. 183914 

SECOND  DATA 

SET 

159  58 

17088 

17046 

5  0. 6  9  5 1 6  7 

Ring  #50830224  was  omitted  from  the  ring  statistics  calculations  via  Option  6. 
Compare  the  results  with  those  in  the  Option  5  example. 
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OPTION  7  EXAMPLE 


TM  No.  851094 


ENTER  OPTION  NUMBER  1-9; 

>  7 

ENTER  RING  SERIAL  NUMBER  (ENTER  0  FOR  RING  CATALOG) 

>  50830224 

OPTION  8  EXAMPLE: 

E  N  T  E  R  0  P  T  I  0  N  H IJ  M  B  E  R  ('  1  -  9  ) 

>  8 

PRESS  CONT,  OR  ENTER  NEW  FILE  NAME  AND  MASS  STORAGE  DEVICE 

> 

ENTER  RING  SERIAL  NUMBER  (ENTER  0  FOR  RING  CATALOG) 

>  50830321 

>  DUMP  GRAPHICS 


TM  No.  851094 


OPTION  9  EXAMPLE: 


ENTER  OPTION  HUMBER  <1-9) 

9 

ENTER  1  TO  PLOT  CAP;  2  TO  PLOT  K;  3  TO  PLOT  FR. 
1 

DUMP  GRAPHICS 


10  !  RING  -  28  MFlY  1985 

20  OPTION  EASE  1 

30  DIN  Ser <500) ,  Dat  <2, 7)  ,  Bat* <7)  , T i t 1 e* [ 80 ] ,  Ckf  <500, 6)  ,  St  at  <6, 4) ,  Host,  at  <500) ,  D 
at  e*  C  32 ] 

40  MAT  READ  Bat* 

50  DATA  DAYS  SINCE  POL  I NG , CAP , K , DF , FM , FN , T 
60  Opt:  Opt=0 

70  PRINT  LIN<3); "NAIN  OPTIONS:" 

80  PRINT  "  1.  CREATE  DATA  FILE  FOR  RING  STORAGE;" 

90  PRINT  "  2.  STORE  RING  DATA  IN  DATA  FILE;" 

100  PRINT  "  3.  PRINT  RING  CATALOG  FOR  THE  CURRENT  DATA  FILE;" 

110  PRINT  "  4.  EDIT  DATA  STORED  IN  DATA  FILE;" 

120  PRINT  "  5.  CALCULATE  STATISTICS  &  PRINT  RING  DATA  TABLE;" 

130  PRINT  "  6.  DELETE  A  RING  FROM  THE  STATISTICAL  CALCULATIONS;" 

140  PRINT  "  7.  RESTORE  A  RING  TO  THE  STATISTICAL  CALCULATIONS;" 

150  PRINT  "  8.  PLOT  INDIVIDUAL  RING  DATA;" 

160  PRINT  "  9.  MAKE  BAR  PLOT  OF  COMPOSITE  CAP,  K,  OR  FR  DATA." 

170  INPUT  "ENTER  OPTION  NUMBER  < 1-9)" , Opt 
180  IF  <Opt<l>  OR  <  Opt  >9 )  THEN  Opt 

190  ON  Opt  GOSUB  Great  ef i  1 e , Dat  ast  ore , Rc  at , Bat  aed i t , Tab  1 e , St  at  de 1 et e , St  at  rest  or 
e , P 1 o  t , C  a 1  1 _b  ar  p 1 o  t 
200  GOTO  Opt 

210  Createfile:  INPUT  "ENTER  FILE  TITLE  AND  MASS  STORAGE  DEVICE", File* 

220  Cf05:  INPUT  "ENTER  NUMBER  OF  RINGS  TO  ALLOCATE  STORAGE  FOR  < 1 -500 ) " , Nr i ng 

230  IF  Nr  i  ng<  1  THEN  Cf'99 
240  IF  Nring>5@0  THEN  Cf05 

250  Rec p 1 us  =  I  NT < Nr i ng/ 1 6 )  +  1  +  < Nr i ng  MOD  16>0) 

255  Nrec=Nring+Recplus 

260  DISP  "ATTEMPTING  TO  CREATE  FILE  " ; F il e* ; " , " ; VAL* < Nr ec ) ; " ,  1  28 " 

270  ON  ERROR  GOTO  Cfl0 
280  CREATE  F i 1 e* , Nr ec , 1 28 
290  GOTO  C f  1 5 

300  Cfl@:  PRINT  "ERROR" ; ERRN; "DURING  ATTEMPT  TO  CREATE  FILE  ";File* 

310  OFF  ERROR 

320  GOTO  Cf 99 

330  Cfl5:  OFF  ERROR 

34G  PRINT  "FILE  ";File*;"  CREATED" 

350  INPUT  "ENTER  FILE  TITLE  STRING  CUP  TO  80  CHARACTERS) " , Ti t 1 e* 

355  INPUT  "ENTER  POLING  DATE  CUP  TO  32  CHARACTERS) " , Bate* 

360  ASSIGN  #1  TO  File* 

370  REDIM  SerCNring) 

380  MAT  Ser=<-1 ) 

39G  PRINT  # 1 , 1 ; Nr i ng, T i t 1 e* , Dat e* 

400  PRINT  #1,2 
410  PRINT  #  1 ; Ser < * ) 

420  PRINT  "FILE  ";File*;"  READY  FOR  STORING  CERAMIC  RING  DATA" 

430  Cf99:  RETURN 

440  !  - 

450  D  at  as  t  o  r  e :  CALL  F i leselectCFi 1 e  * , # 1 , N r i n  g , T i 1 1 e  * , D  at  e  * , S  e  r  <  * ) , R  e c p 1 u  s , N o s t at 
<  * ) ) 

460  Dsl2:  FOR  P=1  TO  Nring 
470  IF  Ser<P)=-l  THEN  Dsl5 
480  NEXT  P 

490  PRINT  "FILE  ";File*;"  IS  FILLED  -  NO  ADDITIONAL  DATA  CAN  BE  STORED" 

500  GOTO  Ds99 

510  Ds 1 5 :  INPUT  "ENTER  SERIAL  NUMBER  < NUMERIC  ONLY,  >0)", Ser CP) 

520  IF  Ser<P)<=0  THEN  Dsl5 

521  Bs20:  Kmode=0 

522  INPUT  "ENTER  1  FOR  TR-317  DATA,  2  FOR  TR-155  DATA" , Kmode 

523  !  "ENTER  1  IF  K  WILL  BE  DIRECTLY  ENTERED,  2  TO  CALCULATE  K  BASED  ON  FM  &  FN 
" , Kmode 

526  IF  CKmodeCl)  OR  <Kmode>2)  THEN  Ds20 
528  MAT  Dat  =  <  0 ) 

530  FOR  1=1  TO  2 

540  PRINT  LINC2) ; "ENTER  DATA  SET": I; "FOR  TRANSDUCER  R I NG " ; Ser < P ) ; L I N < 1 ) 

550  FOR  J=1  TO  7 
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551  IF  <J  =  3>  AND  CKmode=2>  OR  <J  =  S>  AND  <Kmode=l>  THEN  Ds30 
560  PRINT  "ENTER  DATA  SET"; I  ;  Dat  $  <  J  ) 

570  INPUT  Dat<I,J> 

580  Ds30:  NEXT  J 

581  IF  Kmode= 1  THEN  Ds40 

582  Dat<I,3>  =  <Dat<I,6V'2-DatCI,5)'s2)/''DatCI,6)'s2 

583  PRINT  "CALCULATED  K  VALUE  FOR  DATA  SET " ; I ; "  =  " ;  Dat  <  1 , 3 ) 

584  Date.'  I  ,  7>=Dat  C  1 , 7>*9/5+32 

585  PRINT  "TEMPERATURE  CONVERTED  TO " ; Dat < I , 7 > ; " deg  F" 

590  Ds40:  NEXT  I 

600  PRINT  #l,P+Recplus;Dat<*> 

610  PRINT  #1,2 
620  PRINT  # 1 ; Ser  <  *  > 

630  READ  #1, 1 ; X 

640  PRINT  "DATA  FOR  RING" ; Ser  C P) ; "HAS  BEEN  STORED  IN  FILE  ";File$ 

650  Ds90:  X= 1 

660  INPUT  "PRESS  CONT  TO  ENTER  DATA  FOR  ANOTHER  RING;  ENTER  0  TO  RETURN  TO  OPTI 

ONS  LIST. ",  X 

670  IF  X= 1  THEN  Dsl2 

680  IF  X  THEN  Ds90 

681  ASSIGN  #1  TO  * 

682  ASSIGN  #1  TO  File* 

690  Ds99 :  RETURN 

700  !  - 

710  Dataedit:  CALL  F  i  1  esel  ec t (F  i  1 e*  ,  # 1 ,  Nr  i  ng ,  T i 1 1  e$  ,  Dat e* ,  Ser < * ) ,  Recp 1  us , Nost at ( 

720  De02 :  PRINT  LINC2);"EDIT  OPTIONS:" 

730  PRINT  LINC1);"  1.  PRINT  SERIAL  NUMBER  CATALOG  FOR  FILE  ";File* 

740  PRINT  "  2.  EDIT  RING" 

750  PRINT  "  3.  PURGE  RING" 

753  PRINT  "  4.  ENTER  NEW  TITLE  STRING" 

757  PRINT  "  5.  ENTER  NEW  POLING  DATE" 

760  PRINT  "  6.  RETURN  TO  MAIN  OPTIONS" 

770  De05:  Edopt=0 

780  INPUT  "ENTER.  EDIT  OPTION  NUMBER  C  1  -6 )  "  ,  Edopt 

790  IF  (EdoptCl)  OR  CEdopt>6)  THEN  De@5 

300  ON  Edopt  GOTO  De 1 0 , De20 , De60 , De70 , De80 , De99 

310  Del©:  CALL  R  i  ngcat  <  F  i  1  e$,  Nr  i  ng,  T  i  1 1  e$,  Dat  e*  ,  Ser  <  *  )  ,  Nest  at  <  *  )  •) 

820  GOTO  De02 

830  De20:  CALL  R  i  ngse  1  ec  t  C  Nr  i  ng,  Ser  <*>  ,  Ri  ng,  Fi  1  e*,  T  i  t  1  e*,  Dat  e$,  Nost  at  C  *  ) 

340  IF  R i ng=0  THEN  De02 

850  READ  # 1 , R i ng  +  Rec p 1  us ; Dat ( * ) 

860  PRINT  L INC  1 >; "CURRENT  DATA  FOR  R I NG " ; Ser C R i ng > 

870  GOSUB  De50 

880  De28:  FOR  1=1  TO  2 

890  De30 :  X*="" 

900  PRINT  "CHANGE  VALUES  FOR  TIME"; I; "(Y  or  N>?" 

910  INPUT  "ENTER  Y  or  N",X* 

920  IF  X*= " N "  THEN  De35 
930  IF  X*<  > " Y"  THEN  De30 

940  PRINT  LINCO;  "PRESS  CONT  TO  MAINTAIN  DISPLAYED  VALUE,  OR  ENTER  A  NEW  VALUE" 
;  LINC  1 ) 

950  FOR  J=1  TO  7 

960  PRINT  "TIME" ; I; Dat$< ; "  =";Dat(I,J> 

970  INPUT  "PRESS  CONT,  OR  ENTER  A  NEW  VALUE " , Dat ( I , J  > 

980  NEXT  J 
990  De35!  NEXT  I 

1000  PRINT  LINC2) ; "REVISED  VALUES  FOR  R I NG " ; Ser C R i ng > 

1010  GOSUB  De50 
1020  D e 4 0 : X *  = " " 

1030  INPUT  "ARE  VALUES  CORRECT  CY  or  N>?",X$ 

1040  IF  X *  = " Y "  THEN  De45 
1050  IF  X * <  > " N "  THEN  De4@ 

1060  GOTO  De23 

1070  De45:  PRINT  #l,Ring+Recplus;DatC*> 

1080  MAT  D at  =  C  0 ) 
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1090  READ  #1 ,  Ri  ng+Recpl  us;  Dat  C*) 

1100  PRINT  "EDITED  VALUES  HAVE  BEEN  STORED  IN  FILE  ";File* 

1110  GOTO  De02 

1120  De50:  PRINT  L  I N  C  1  ) ; "  TIME  1",,"  TIME  2" 

1130  FOR  1=1  TO  7 

1140  PRINT  Dat C 1 , I), Dat*C I) , Dat C2, I ) 

1150  NEXT  I 
1160  PRINT 
1170  RETURN 

1 1S0  De60:  CALL  R i ngse 1 ec t C Nr i ng , Ser C *) , R i ng , F i 1 e* , T i t 1 e* , Dat e* , Nost at C * ) ) 

1190  IF  R i ng=0  THEN  De02 

1195  PRINT  "RING" ; SerCRi ng) ; "PURGED" 

1200  SerCRing)=-l 
1210  PRINT  #1,2; Ser  C  * ) 

1220  READ  #1 , 1 ; Nri ng 
1232  GOTO  De02 

1234  De70 :  PR  I  NT-  " CURRENT  TITLE  STRING:" 

1235  PRINT  Title* 

1236  INPUT  "ENTER  NEW  TITLE  STRING  CUP  TO  80  CHARACTERS )", T i t 1 e* 

1237  PRINT  #1 , 1 ; Nri ng, Ti t 1 e*„ Date* 

1238  READ  #1,1 

1239  GOTO  De@2 

1240  De80 :  PRINT  "CURRENT  POLING  DATE:  " ;Date* 

1242  INPUT  "ENTER  NEW  POLING  DATE  CUP  TO  32  CHARACTERS) ", Dat e* 

1244  PRINT  # 1 ,  1 ; Nr i ng , T i 1 1 e* , Dat e* 

1245  READ  #1,1 
1247  GOTO  De02 

1250  De99:  ASSIGN  #1  TO  * 

1251  ASSIGN  #1  TO  File* 

1256  RETURN 

1260  !  - 

1270  Table:  IF  0pt=9  THEN  Tall 

1 275  CALL  F i 1 ese 1 ec  t  C F i 1 e* , # 1 , Nr i ng , T i t 1 e* , Dat  e* , Ser  C  * ) , Rec p 1  us , Host  at C  * ) > 
1280  Tal0:  X*="" 

1290  INPUT  "PRINT  HARD  COPY  CY  or  N)?",X* 

1300  IF  CX*<>"Y")  AND  CX*<>"N")  THEN  Tal0 
1310  PRINTER  IS  16*CX*="N") 

1320  PRINT  LINC2) ; "FILE:  ";File* 

1322  PRINT  Title* 

1325  PRINT  "POLING  DATE:  ";Date* 

1340  PRINT  LI  NCI);"  RING  DAY _ CAP _ K _ DF _ FM 

FN _ T _ " 

1350  Tall:  X=- 1 
1360  MAT  C k  f  =  C  0 ) 

1370  Ckf=0 
1380  FOR  1=1  TO  6 
1390  Stat C I , 1 )=1E35 
1400  Stat C I , 2)=-lE35 
1410  Stat C I , 3)=Stat C I , 4)=8 
1420  NEXT  I 
1430  Tal 2 :  Y= 1 E35 
1440  FOR  J=1  TO  Nri ng 

1450  IF  CSerC JX=X)  OR  CSerCJ)>Y)  THEN  Tal3 
1460  I=J 
1470  V=SerCJ) 

1480  Tal 3 :  NEXT  J 
1490  IF  Y= 1E35  THEN  Ta20 
1500  X=Y 

1510  READ  #1, I+Recplus; Dat C*) 

1520  IF  NostatCI)  THEN  Tal4 
1530  Ckf=Ckf+l 
1540  CkfCCkf,  l)=DatCl,2) 

1550  CkfCCkf, 2 )=D at  Cl, 3) 

1560  CkfCCkf , 3)=Dat Cl ,5) 

1570  CkfCCkf, 4)=Dat  C2,2) 

1580  CkfCCkf ,5)=DatC2, 3) 
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1590  Ckf (Ckf ,6)=Dat (2,5) 

1600  FOR  K= 1  TO  6 

1610  IF  Ckf  (Ckf  ,  KXStat  (K,  1 )  THEN  St  at  (  K ,  1  )  =  Ck  f  C  Ck  f  ,  K  ) 

1620  IF  Ckf (Ckf , K) >Stat (K, 2)  THEN  St  at C K , 2 ) =Ck f C Ck f , K ) 

1 630  St  at  C  K , 3 ) =St  at  C  K , 3 ) +Ck  f  (  Ck  f  ,  K  ) 

1640  St  at  (K,  4)=Stat  CK,  4)+Ckf  (Ckf  ,  KX2 
1650  NEXT  K 

1660  Tal4!  IF  0pt=9  THEN  Tal2 
1665  PRINT  USING  " # , 1 0D " ; Ser C  I  ) 

1670  PRINT  USING  Tal 5 ; CHR* C 32+ 1 0*Nost at C I )) & "  " , Dat C 1 ,  1) , Dat C 1 , 2 ) , Dat C 1 , 3 ) , Dat  C 
1, 4), D at (1, 5), D at (1,6), Dat (1,7) 

1 630  PRINT  USING  Tal5|"  " , Dat C 2 , 1 ) , Dat C 2 , 2 ) , Dat C 2 , 3 ) ,  Dat C 2 , 4 ) , Dat C 2 , 

5), D at (2, 6), D at (1,7) 

1690  PRINT 
1700  GOTO  Tal 2 

1710  Tal5:  IMAGE  K,3Z,4X,5D,4X,D.4D,4X,D.4D,5X,5D,5X,5D,5X,3D 
1720  Ta20:  IF  0pt=5  THEN  PRINT  LINC2) 

1725  IF  C k  f  =  0  THEN  Ta95 
1730  FOR  1=1  TO  6 

1740  IF  CkfOl  THEN  St  at  (  1 , 4  )  =SQR  C  C  St  at  C  1 , 4 ) -St  at  ( I  ,  3  X2/Ck  f  ) --' (  Ck  f  -  1  )  ) 

1750  IF  Ckf=l  THEN  Stat(I,4)=0 
1760  St  at  C I ,3)=Stat<I,3)^Ckf 

1770  NEXT  I 

1771  IF  Opt  =9  THEN  Ta99 
1780  FOR  1=1  TO  3 

1790  PRINT 


1800 

IF 

1  =  1 

THEN 

PRINT 

USING 

"#, K" ; " 

CAP 

1810 

IF 

1=2 

THEN 

PRINT 

USING 

"  # ,  K " ; " 

K" 

1820 

IF 

1=3 

THEN 

PRINT 

USING 

"  # ,  K " ; " 

FM 

1830  PRINT  TABC24)  ;  "MIN"  ;  TABC36) ; "MAX" ; TABC51 ); "MEAN" ; TABC66) ; "STD  DEV" 

1840  FOR  J  =  0  TO  3  STEP  3 

1850  IF  J  =  0  THEN  PRINT  USING  " # , K " ; "FIRST  DATA  SET  " 

I860  IF  J=3  THEN  PRINT  USING  "#, K SECOND  DATA  SET" 

1870  PRINT  TABC 18) ; DROUNDCStat  < I+J, 1 ) , 8) ; TAB (30) ; DROUNDCStat ( I + J  ,  2) , 8 ) ;  TAB ( 45) ; 
DROUNDCStat  C I+J, 3) , 3) ; TAB (60) ; DROUNDCStat ( I+J, 4) , 8) 

1830  NEXT  J 
1890  NEXT  I 

1900  Ta95:  PRINTER  IS  16 

1901  PAUSE 

1910  Ta99:  RETURN 

1920  !  - 

1930  Cal l_barpl ot :  IF  Ckf  THEN  Cbl0 

1940  PRINT  "THERE  IS  NO  DATA  BASE  FOR  MAKING  A  BAR  PLOT  AT  THIS  TIME." 

1950  PRINT  "ACCESS  OPTION  5  TO  CREATE  A  DATA  BASE  AND  CALCULATE  STATISTICS." 

I960  GOTO  Cb99 

1970  Cbl0:  GOSUB  Table 

1975  CALL  Barplot(Ckf,Ckf(*),Stat(*),File$) 

1930  Cb99 :  RETURN 

1990  !  - 

2000  Rcat :  IF  F i 1 e * <  > " "  THEN  Real© 

2010  PRINT  "NO  FILE  HAS  BEEN  SELECTED." 

2020  GOTO  Rca99 

2030  Rcal0:  CALL  R i ngcat ( F i  1  e* , Nr i ng , Ti 1 1 e*, Dat e*, Ser ( *) , Nost at ( * ) ) 

2040  Rca99:  RETURN 

2050  !  - 

2060  St  at  del ete:  IF  File*<>""  THEN  Sdl0 

2070  PRINT  "NO  FILE  HAS  BEEN  SELECTED  FOR  PRINTING  AND  STATISTICAL  ANALYSIS." 
2080  GOTO  Sd99 

2090  Sdl0:  CALL  R i ngsel ec t (Nr i ng , Ser ( *) , Ri ng , F i 1 e* , T i t 1 e$ , Dat e* , Nost at C *) ) 

2100  IF  R i ng=@  THEN  Sd99 
2110  Nost at ( R i ng ) = 1 

2120  PRINT  "RING";Ser(Ring); "DELETED  FROM  STATISTICAL  CALCULATIONS." 

2130  Sd99 :  RETURN 

2140  !  - 

2150  Statrestore:  IF  File$<>""  THEN  Srl0 

2160  PRINT  "NO  FILE  HAS  BEEN  SELECTED  FOR  PRINTING  AND  STATISTICAL  ANALYSIS." 
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2170 

2130 

2190 

2200 

2210 

2220 

2230 

2240 

2241 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2480 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 

2580 

2581 
2590 
2600 
2610 
2620 
2630 
2640 

2650 

2651 
2670 
2680 
2681 
2700 
2710 

2720 

2721 
2730 

2740 

2741 

2750 

2751 
2760 
2770 


GOTO  Sr99 

Sr  1 0 :  CALL  Ri  ngse- 1  ec  t  <.  Hr  i  ng ,  Ser  ( * ) ,  R  i  ng ,  Fi  1 , Ti t 1 e$ ,  Bat  st ,  Host  at  <  *  )  ) 
Host  at ( R i ng ) =0 

PRINT  "RING" ; Ser<Ri ng) ; "RESTORED  TO  STATISTICAL  CALCULATIONS." 

Sr99 :  RETURN 


■K" 


■FR  (Hz) 


‘CAP  CpF)" 


'  1  "3<RPT$<  "0" ,  I  ) 


Plot:  GALL  F i 1 ese 1 ec t (F i 1 e$, # 1 , Nr i ng , T i t 1 e$ , Bat  , Ser  < * ) , Rec p 1  us ,  Nost at t * 
CALL  RingselectCNring, Ser ( * ) , Ring, F i 1 e$ , Titled, B at  e$ , Nost  at  <  * ) ) 

PRINT  PAGE 
IF  Ring=0  THEN  P 1 99 
PLOTTER  IS  13, "GRAPHICS" 

GRAPHICS 

LOCATE  18,118,8,98 
SCALE  0,3, 0,7 
AXES  1, 1,0,0 
LORG  2 
CSIZE  3.3 
MOVE  -.48,1.5 
LABEL  USING  " K 1 
MOVE  -.48,3.5 
LABEL  USING  "K‘ 

MOVE  -.48,5.5 
LABEL  USING  "K1 
LORG  6 

FOR  1=0  TO  3 
MOVE  I, -.05 
LABEL  USING  "K1 
NEXT  I 

MOVE  1.5, -.3 
LABEL  USING 
LORG  3 
MOVE  0 , - . 4 
LABEL  USING 
LORG  9 
MOVE  3, -.4 
LABEL  USING 
FOR  1=20  TO 
FOR  J=-l  TO 
X  =  LGTC  I  )+J 
MOVE  X,0 
BRAW  X, . 05 
NEXT  J 
NEXT  I 

READ  # 1 , R i ng  +  Rec p 1  us ; Bat <*) 

X0=LGT ( Bat C 1 , 1 ) ) 

X 1 =LGT  C  Bat ( 2 , 1 ) ) 

B0=X0/CX1-X0) 

B1=<3-X1 )/<Xl-X0) 

FOR  1=1  TO  3 

ON  I  GOTO  P 1 20 , P 1 25 , P 1 30 
P 1 20 :  J=3 
P  =  -2 
GOTO 
Pi  25: 

P  =  3 
GOTO 
PI  30: 

Pi  35: 


"  K  “  *,  "BAYS" 


1 K ,  K " ; "FILE:  " ,File* 


"K, 1 0B " ; "RING: 
90  STEP  10 
1 


" , SerCRi ng) 


P 1  35 
J  =  5 


PI  35 
J  =  P  =  2 

B  =  Bat  <2, J)-Bat <1 , J) 

p=int<lgt(abs(;b)  )  )  +  i 

Y0  =  Dat  < 1 , J ) - B 0 * B 
Yl=Dat<2,J)+Bl*B 
P=INT<LGT<ABS<Y0-Y1 )*. 4)  )  +  l 
Y=<Y0+Y1 )/2 

Y=<Dat < 1 , J)+Bat  <2, J) )/2 
Y=10AP*INT<Y/'10AP) 

SCALE  0,3,Y-<2*I-l)*10AP,Y+(:8-2*I)*10' 
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2780  LORG  8 

2790  MOVE  - . 03 , Y 

2800  LABEL  USING  "K";Y 

2810  MOVE  -.03,Y+10AP 

2820  LABEL  USING  "K";Y+10''P 

2830  LORG  5 

2840  FOR  K=1  TO  2 

2850  MOVE  LGT<Dat  <K,  1  )  ) ,  Dat  <K,  J) 

2860  LABEL  USING  "K";"X" 

2870  NEXT  K 
2880  MOVE  0,Y0 
2890  DRAW  3 ,  Y  1 

2900  IF  Y1+Y0O0  THEN  Per  dec  ade=  <  Y  1 -Y0  > /%/ i  <  Y 1  +  Y0  ) O  )  *  1 00  !  CHANGE  PER  DECAB 

E  CALCULATION 

2905  IF  Y 1 +Y0=0  THEN  Perdecade=0 
2930  MOVE  2, <Y0+Y1 )/2+. 4*10rtP 
2940  CSIZE  2.5 

2950  LABEL  USING  " K , K " ; PROUND < Per dec ade , - 1 ) , "  PERCENT  PER  DECADE" 

2960  CSIZE  3.3 
2970  NEXT  I 
2980  PAUSE 
2990  EXIT  GRAPHICS 
3000  PI  99:  RETURN 

3010  !  - 

3020  Fi  leselect:  SUB  F  i  leselect<Fi  1  e* ,  #  1  ,  Nr  i  ng ,  T  i  1 1  e* ,  Dat  e* ,  Ser  <!  * )  ,  Rec  p  1  us  ,  Host,  a 
t  <*)  ) 

3030  OPTION  BASE  1 
3040  X=l+<Fi  1 e*<  >  "  "  ) 

3050  IF  X=2  THEN  Fs20 

3060  Fsl0:  INPUT  "ENTER  FILE  NAME  WITH  MASS  STORAGE  DEVICE", F* 

3070  GOTO  F s30 

3080  Fs20:  PRINT  P AGE ;" CURRENT  FILE:  ";File* 

3090  F*  =  F i 1 e$ 

3100  INPUT  "PRESS  CONT,  OR  ENTER  NEW  FILE  NAME  AND  MASS  STORAGE  DEVICE", F* 

3110  IF  F*=File*  THEN  Fs99 

3120  Fs30:  PRINT  "ATTEMPTING  TO  OPEN  FILE  ";F* 

3130  ON  ERROR  GOTO  Fs40 
3140  ASSIGN  #1  TO  F$ 

3150  OFF  ERROR 

3160  READ  # 1 , 1 ; Nr i ng , T i t 1 e* , Dat e* 

3170  REDIM  Ser(Nring) 

3180  READ  *1,2 
3190  READ  #l;Ser<*) 

3200  Rec p 1 us  =  1  + 1  NT < Nr i ng/ 1 6 )  +  < Nr i ng  MOD  16>0) 

3210  MAT  Nostat=<0) 

3220  GOTO  F  s50 
3230  Fs40:  OFF  ERROR 

3240  PRINT  LIN(l); "  ERROR" ;ERRN; "DURING  ATTEMPT  TO  OPEN  FILE  "  ;  F* 

3250  ON  X  GOTO  Fsl0,Fs20 
3260  Fs50 :  Fi 1 e*  =  F* 

3270  Fs99:  Rec p 1 us= 1  + 1  NT < Nr i ng/ 1 6 )  +  < Nr i ng  MOD  16>0) 

3275  SUBEND 

3280  !  - 

3290  Ringcat:  SUB  R  i  ngc  at  (.  F  i  1  e* ,  Nr  i  ng  ,  T  i  t 1  e* ,  Dat  e*  ,  Ser  <  * )  ,  Nost-  at  <  *  )  ) 

3300  OPTION  BASE  1 
3310  Rc 10: X*  =  " " 

3320  INPUT  "HARDCOPY  PRINTOUT  <Y  or  N)?",X$ 

3330  IF  <X$<>"Y" )  AND  (X$<>"N")  THEN  RclO 

3340  PRINTER  IS  1 6* < X*= " N " ) 

3341  PRINT  LINO)  ;  "FILE:  ";File* 

3342  PRINT  Title* 

3343  PRINT  "POLING  DATE:  ";Date* 

3350  PRINT'  LINO ); "FILE  ";File*;"  CONTAINS  DATA  FOR  THE  FOLLOWING  RING  SERIAL  H 

umbers:  " ;  l‘i  no  ) 

3353  X=- 1 

3357  Rc20:  Y= 1 E35 
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3360  FOR  1=1  TO  Nring 

3370  IF  CSer(IX=H)  OR  CSer<I>>Y)  THEN  Rc30 

3371  J=I 

3372  Y=SerCI> 

3380  Rc3@:  NEXT  I 

3381  IF  Y= 1 E35  THEN  Rc90 

3382  X= Y 

3383  Z$="  "StVAL$CSerCJ>  > 

3384  IF  NostatCJ)  THEN  Z$ [ 1 , 1 ] = " * " 

3387  PRINT  Z$, 

3388  GOTO  Rc20 
3390  Rc  90 :  PRINT 
3400  PRINTER  IS  16 
3410  Rc 99 :  SUBEND 

3420  !  - 

3430  Ringselect:  SUE  R i ngse 1 ec t CNr i ng , Ser < * ) , R i ng, F i  1 e$ , Ti t 1 e$, Dat e$  ,  Nost at C * 

3440  OPTION  BASE  1 

3450  PRINT 

3460  Rs 1 0 :  Ser=-1 

3470  INPUT  "ENTER  RING  SERIAL  NUMBER  CENTER  0  FOR  RING  CATALOG >", Ser 
3480  ON  SGN  C  Ser ) +2  GOTO  Rs 1 0 , Rs 1 5 , Rs20 

3490  Rsl5:  CALL  R  i  ngc  at  C  F  i  le$  ,  Nr  i  ng ,  T  i  1 1  e$  ,  Dat  e$ ,  Ser  C  *  >  ,  Nost  at  C  *  >  > 

3500  GOTO  Rs 1 0 

3510  Rs20 :  FOR  Ring=l  TO  Nring 
3520  IF  Ser CRi ng)=Ser  THEN  Rs99 
3530  NEXT  Ri ng 
3540  Ring=0 

3550  PRINT  LINC 1 ); "SERIAL  NUMBER Ser ;  "  NOT  FOUND  IN  FILE  ";File$ 

3560  Rs99 :  SUBEND 

3570  !  - 

3580  Barplot!  SUB  Bar p 1 ot C Ck f , Ck f C * > , St  at C * >  ,  F  i  1  e$ > 

3590  DEG 

3600  OPTION  BASE  1 

3610  DIM  B i ns  C  25 ) 

3611  PRINT  PAGE 
3620  Bp  1 0 :  K  =  0 

3630  INPUT  "ENTER  1  TO  PLOT  CAP;  2  TO  PLOT  K;  3  TO  PLOT  FR "  ,  K 
3640  IF  <K<1>  OR  <K>3>  THEN  Bpl@ 

3650  FOR  Dat  aset  =  1  TO  2 

3660  D=Dat aset *3-3 

3670  Dx  =  St at C K  +  D , 2 ) -St  at C K  +  D ,  1 > 

3680  Dt i c  =  10MNT  CLGT  C  Dx  > - 1 ) 

3690  IF  Dx/Dtic<20  THEN  Bp20 
3700  Dt i c  =Dt i c  *2 

3710  IF  Dx/Dtic>=20  THEN  Dt i c =Dt i c *2 . 5 
3720  Bp20 :  Bm i n  =  PROUND C St  at C K  +  D , 1 ) /Dt i c , 0 > 

3730  Bmax  =  PROUNDCStat  CK  +  D, 2)/Dt i c , 0) 

3740  REDIM  BinsCl+Bmax-Bmin) 

3750  MAT  Bins=C0> 

3760  Ymax=0 

3770  FOR  1=1  TO  Ckf 

37  80  B  =  PROUND  C  Ck  f  C I ,K+D>/Dtic,0)+1-Bmin 
3790  BinsCB>=BinsCB)+l 

3800  IF  B i  ns C B ) >Ymax  THEN  Ymax=BinsCE> 

3810  NEXT  I 

3820  Ymax=MAXC5, Ymax) 

3830  PLOTTER  IS  1 3 , " GR APH I CS " 

3840  GRAPHICS 

3850  LOCATE  15,110,25,95 

3860  Xmin=Dtic*CBmin-l) 

3870  Xmax=Dt i c * C Bmax  + 1 > 

3880  SCALE  Xm i n , Xmax , 0 , Ymax 
3890  Yt i c = 1 + C Ymax >50 ) 

3900  AXES  Dt i c , Yt i c , Xm i n, 0 , 5 , 5 
3910  CS I ZE  2.5 
3920  LORG  5 
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3930  MOVE  ( Em i  n-1  > *Dt i c , 028*Yma> 

3940  LABEL  USING  " K " ;  ( Bm i n- 1 ) *Dt  l  c 
3950  FOR  I=Bmin  TO  Emax 

3960  CLIP  <I-.5)*Etic,('I  +  .5)*Btic.,0,Bins ••  ~  3  m  i  n  +  1  > 

39? 0  FRAME 

3980  IF  (I-Bmin+1)  MOB  5  THEN  GrZ'O 
3990  MOVE  I *Bt i c , 02S*Ymax 
4000  LABEL  USING  "K";I*Btic 
4010  Gr 20 :  NEXT  I 

4020  MOVE  Bt  i  c  *  <  Bm  i  n  +  Bmax. )  /2 ,  - .  0 6 5 4 * Y m ax. 

4030  CSIZE  2. ?,  .  8 
4040  Y*="FIRST" 

4050  IF  Dat  aset  =2  THEN  Y*="SECGNB“ 

4060  X*="CAP" 

4070  IF  K=2  THEN  X$="K" 

4080  IF  K=3  THEN  X$="FR" 

4090  LABEL  USING  "K";"FILE  "&File$S<"  "8<X$&"  <“&Y$Si“  BATA  SET)" 
4100  CSIZE  2,5 
4110  LORG  8 

4120  FOR  1=0  TO  Ymax  STEP  5*Yt  i  c 

4130  MOVE  Bt i c*  <  Bmi  n- 1 ) -. 0 1 *Bt i c*  < Emax-Em i n  +  2 ) ,  I 
4140  LABEL  USING  "K";I 
4150  NEXT  I 
4160  LORG  5 

4170  MOVE  Dt  i  ■:*  <Bmi  n-1  1  1  *Dt  i  c*<Bmax-Bm  i  n  )  ,  Ymax/2 

4180  LB  I R  90 
4190  CSIZE  2. 7,  .  8 

4200  LABEL  USING  "K"; "NUMBER  OF  OCCURANCES" 

4210  LB  I R  0 

4220  PRINT  "PRESS  CONT  WHEN  REABY" 

4230  PAUSE 
4240  NEXT  Dataset 
4250  EXIT  GRAPHICS 
4260  SUBEND 


